home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / big_time.h < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-03  |  50.2 KB  |  1,126 lines
  1. #if BIG
  2. acorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  3.   for (j=0; j<32; j++)
  4.     acorf(S[j], D[j], n, n); }
  5. acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  6.   for (j=0; j<32; j++)
  7.     acort(S[j], D[j], n, n); }
  8. aspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  9.   for (j=0; j<32; j++)
  10.     aspec(S[j], inc1, D[j], inco, n); }
  11. blkman_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  12.   for (j=0; j<32; j++)
  13.     blkman(S[j], inc1, D[j], inco, n); }
  14. ccdotp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  15.   for (j=0; j<32; j++)
  16.     ccdotp(S[j], 2, S[(j+4)%8], 2, cso, n); }
  17. ccorf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  18.   for (j=0; j<32; j++)
  19.     ccorf(S[j], S[(j+4)%8], D[j], n, n); }
  20. ccort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  21.   for (j=0; j<32; j++)
  22.     ccort(S[j], S[(j+4)%8], D[j], n, n); }
  23. cdotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  24.   for (j=0; j<32; j++)
  25.     cdotpr(S[j], 2, S[(j+4)%8], 2, cso, n); }
  26. cfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  27.   for (j=0; j<32; j++)
  28.     cfft(S[j], n, flg); }
  29. cfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  30.   for (j=0; j<32; j++)
  31.     cfftf(S[j], 2, D[j], 2, n); }
  32. /**
  33. cfftf_64c_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  34.   for (j=0; j<32; j++)
  35.     cfftf_64c(S[j], 2, D[j], 2, n); }
  36.  **/
  37. cffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  38.   for (j=0; j<32; j++)
  39.     cffti(S[j], 2, D[j], 2, n); }
  40. cfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  41.   for (j=0; j<32; j++)
  42.     cfftsc(D[j], n); }
  43. convd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  44.   for (j=0; j<32; j++)
  45.     convd(S[j], 1, S[(j+4)%8], 1, D[j], 1, n, 32, ndf); }
  46. cpow_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  47.   for (j=0; j<32; j++)
  48.     cpow(S[j], 2, &rs1, S[(j+4)%8], inc2, &rs2, D[j], inco, n); }
  49. crvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  50.   for (j=0; j<32; j++)
  51.     crvdiv(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  52. crvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  53.   for (j=0; j<32; j++)
  54.     crvmul(S[j], 2, S[(j+4)%8], inc2, D[j], 2, n); }
  55. cspec_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  56.   for (j=0; j<32; j++)
  57.     cspec(S[j], S[(j+4)%8], D[j], n); }
  58. cvabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  59.   for (j=0; j<32; j++)
  60.     cvabs(S[j], 2, D[j], inco, n); }
  61. cvadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  62.   for (j=0; j<32; j++)
  63.     cvadd(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  64. cvcml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  65.   for (j=0; j<32; j++)
  66.     cvcml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  67. cvcmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  68.   for (j=0; j<32; j++)
  69.     cvcmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  70. cvcomb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  71.   for (j=0; j<32; j++)
  72.     cvcomb(S[j], inc1, S[(j+4)%8], inc2, D[j], 2, n); }
  73. cvconj_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  74.   for (j=0; j<32; j++)
  75.     cvconj(S[j], 2, D[j], 2, n); }
  76. cvcsml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  77.   for (j=0; j<32; j++)
  78.     cvcsml(S[j], 2, cs1, D[j], 2, n); }
  79. cvdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  80.   for (j=0; j<32; j++)
  81.     cvdiv(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  82. cvexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  83.   for (j=0; j<32; j++)
  84.     cvexp(S[j], inc1, D[j], 2, n); }
  85. cvfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  86.   for (j=0; j<32; j++)
  87.     cvfill(cs1, D[j], 2, n); }
  88. cvma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  89.   for (j=0; j<32; j++)
  90.     cvma(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n, 1); }
  91. cvmags_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  92.   for (j=0; j<32; j++)
  93.     cvmags(S[j], 2, D[j], inco, n); }
  94. cvmexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  95.   for (j=0; j<32; j++)
  96.     cvmexp(S[j], inc1, S[(j+4)%8], 2, D[j], 2, n); }
  97. cvmgsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  98.   for (j=0; j<32; j++)
  99.     cvmgsa(S[j], 2, S[(j+4)%8], inc2, D[j], inco, n); }
  100. cvml_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  101.   for (j=0; j<32; j++)
  102.     cvml(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  103. cvmla_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  104.   for (j=0; j<32; j++)
  105.     cvmla(S[j], 2, S[(j+4)%8], 2, S[(j+2)%8], 2, D[j], 2, n); }
  106. cvmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  107.   for (j=0; j<32; j++)
  108.     cvmov(S[j], 2, D[j], 2, n); }
  109. cvmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  110.   for (j=0; j<32; j++)
  111.     cvmul(S[j], 2, S[(j+4)%8], 2, D[j], 2, n, flg); }
  112. cvneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  113.   for (j=0; j<32; j++)
  114.     cvneg(S[j], 2, D[j], 2, n); }
  115. cvphas_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  116.   for (j=0; j<32; j++)
  117.     cvphas(S[j], 2, D[j], inco, n); }
  118. cvrcip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  119.   for (j=0; j<32; j++)
  120.     cvrcip(S[j], 2, D[j], 2, n); }
  121. cvreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  122.   for (j=0; j<32; j++)
  123.     cvreal(S[j], inc1, D[j], 2, n); }
  124. cvsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  125.   for (j=0; j<32; j++)
  126.     cvsma(S[j], 2, cs1, S[(j+4)%8], 2, D[j], 2, n); }
  127. cvsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  128.   for (j=0; j<32; j++)
  129.     cvsmul(S[j], 2, &rs1, D[j], 2, n); }
  130. cvsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  131.   for (j=0; j<32; j++)
  132.     cvsqrt(S[j], 2, D[j], 2, n); }
  133. cvsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  134.   for (j=0; j<32; j++)
  135.     cvsub(S[j], 2, S[(j+4)%8], 2, D[j], 2, n); }
  136. deq22_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  137.   for (j=0; j<32; j++)
  138.     deq22(S[j], inc1, S[(j+4)%8], D[j], inco, n); }
  139. dotpr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  140.   for (j=0; j<32; j++)
  141.     dotpr(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
  142. envel_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  143.   for (j=0; j<32; j++)
  144.     envel(S[j], D[j], n); }
  145. fftwts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  146.   for (j=0; j<32; j++)
  147.     fftwts(D[j], m, n); }
  148. fix4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  149.   for (j=0; j<32; j++)
  150.     fix4(S[j], inc1, (long*)D[j], inco, n); }
  151. fix2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  152.   for (j=0; j<32; j++)
  153.     fix2n(S[j], inc1, svo, inco, n); }
  154. fix4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  155.   for (j=0; j<32; j++)
  156.     fix4n(S[j], inc1, (long*)D[j], inco, n); }
  157. fixbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  158.   for (j=0; j<32; j++)
  159.     fixbn(S[j], inc1, (char*)D[j], inco, n); }
  160. flt2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  161.   for (j=0; j<32; j++)
  162.     flt2((short*)S[j], inc1, D[j], inco, n); }
  163. flt2iq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  164.   for (j=0; j<32; j++)
  165.     flt2iq((short*)S[j], inc1, D[j], D[(j+4)%8], n); }
  166. flt4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  167.   for (j=0; j<32; j++)
  168.     flt4((long*)S[j], inc1, D[j], inco, n); }
  169. fltb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  170.   for (j=0; j<32; j++)
  171.     fltb((char*)S[j], inc1, D[j], inco, n); }
  172. fltbu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  173.   for (j=0; j<32; j++)
  174.     fltbu((char*)S[j], inc1, D[j], inco, n); }
  175. fxsl2n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  176.   for (j=0; j<32; j++)
  177.     fxsl2n(S[j], inc1, &rs1, &rs2, svo, inco, n); }
  178. fxsl4n_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  179.   for (j=0; j<32; j++)
  180.     fxsl4n(S[j], inc1, &rs1, &rs2, (long*)D[j], inco, n); }
  181. fxslbn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  182.   for (j=0; j<32; j++)
  183.     fxslbn(S[j], inc1, &rs1, &rs2, (char*)D[j], inco, n); }
  184. gcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  185.   for (j=0; j<32; j++)
  186.     gcosf(D[j], inco, &rs1, &rs2, n); }
  187. gcexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  188.   for (j=0; j<32; j++)
  189.     gcexp(&rs1, &rs2, D[j], 2, n); }
  190. hamm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  191.   for (j=0; j<32; j++)
  192.     hamm(S[j], inc1, D[j], inco, n); }
  193. hann_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  194.   for (j=0; j<32; j++)
  195.     hann(S[j], inc1, D[j], inco, n, flg); }
  196. hlbrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  197.   for (j=0; j<32; j++)
  198.     hlbrt(S[j], D[j], n); }
  199. lveq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  200.   for (j=0; j<32; j++)
  201.     lveq(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  202. lvge_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  203.   for (j=0; j<32; j++)
  204.     lvge(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  205. lvgt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  206.   for (j=0; j<32; j++)
  207.     lvgt(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  208. lvle_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  209.   for (j=0; j<32; j++)
  210.     lvle(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  211. lvlt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  212.   for (j=0; j<32; j++)
  213.     lvlt(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  214. lvne_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  215.   for (j=0; j<32; j++)
  216.     lvne(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  217. lvnot_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  218.   for (j=0; j<32; j++)
  219.     lvnot(S[j], inc1, D[j], inco, n); }
  220. maxmgv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  221.   for (j=0; j<32; j++)
  222.     maxmgv(S[j], inc1, &rso, &idx, n); }
  223. maxv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  224.   for (j=0; j<32; j++)
  225.     maxv(S[j], inc1, &rso, &idx, n); }
  226. meamgv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  227.   for (j=0; j<32; j++)
  228.     meamgv(S[j], inc1, &rso, n); }
  229. meanv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  230.   for (j=0; j<32; j++)
  231.     meanv(S[j], inc1, &rso, n); }
  232. measqv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  233.   for (j=0; j<32; j++)
  234.     measqv(S[j], inc1, &rso, n); }
  235. minmgv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  236.   for (j=0; j<32; j++)
  237.     minmgv(S[j], inc1, &rso, &idx, n); }
  238. minv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  239.   for (j=0; j<32; j++)
  240.     minv(S[j], inc1, &rso, &idx, n); }
  241. mvessq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  242.   for (j=0; j<32; j++)
  243.     mvessq(S[j], inc1, &rso, n); }
  244. mxmov_time (m,n) long m,n; { long i, j; n=(n>512)?512:n; for(i=0; i<m; i+=32)
  245.   for (j=0; j<32; j++)
  246.     mxmov(S[j], 1, n, D[j], 1, n, n, n); }
  247. mxmul_time (m,n) long m,n; { long i, j; n=(n>128)?128:n; for(i=0; i<m; i+=32)
  248.   for (j=0; j<32; j++)
  249.     mxmul(S[j], 1, n, S[j], 1, n, D[j], 1, n, n, n, n); }
  250. mxmla_time (m,n) long m,n; { long i, j;  n=(n>128)?128:n; for(i=0; i<m; i+=32)
  251.   for (j=0; j<32; j++)
  252.     mxmla(S[j], 1, n, S[j], 1, n, D[j], 1, n, n, n, n); }
  253. mxmls_time (m,n) long m,n; { long i, j;  n=(n>128)?128:n; for(i=0; i<m; i+=32)
  254.   for (j=0; j<32; j++)
  255.     mxmls(S[j], 1, n, S[j], 1, n, D[j], 1, n, n, n, n); }
  256. polar_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  257.   for (j=0; j<32; j++)
  258.     polar(S[j], 2, D[j], 2, n); }
  259. rect_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  260.   for (j=0; j<32; j++)
  261.     rect(S[j], 2, D[j], 2, n); }
  262. reqs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  263.   for (j=0; j<32; j++)
  264.     reqs(S[j], inc1, &rs1, n, &idx); }
  265. rfft_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  266.   for (j=0; j<32; j++)
  267.     rfft(S[j], n, flg); }
  268. rfftf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  269.   for (j=0; j<32; j++)
  270.     rfftf(S[j], inc1, D[j], 2, &rs1, n); }
  271. rffti_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  272.   for (j=0; j<32; j++)
  273.     rffti(S[j], 2, &rs1, D[j], inco, n); }
  274. rfftsc_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  275.   for (j=0; j<32; j++)
  276.     rfftsc(S[j], n, flg1, flg2); }
  277. rges_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  278.   for (j=0; j<32; j++)
  279.     rges(S[j], inc1, &rs1, n, &idx); }
  280. rgts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  281.   for (j=0; j<32; j++)
  282.     rgts(S[j], inc1, &rs1, n, &idx); }
  283. rlts_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  284.   for (j=0; j<32; j++)
  285.     rlts(S[j], inc1, &rs1, n, &idx); }
  286. rmax_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  287.   for (j=0; j<32; j++)
  288.     rmax(S[j], inc1, &rso, &idx, n); }
  289. rmaxmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  290.   for (j=0; j<32; j++)
  291.     rmaxmg(S[j], inc1, &rso, &idx, n); }
  292. rmin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  293.   for (j=0; j<32; j++)
  294.     rmin(S[j], inc1, &rso, &idx, n); }
  295. rminmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  296.   for (j=0; j<32; j++)
  297.     rminmg(S[j], inc1, &rso, &idx, n); }
  298. rmsqv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  299.   for (j=0; j<32; j++)
  300.     rmsqv(S[j], inc1, &rso, n); }
  301. rnes_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  302.   for (j=0; j<32; j++)
  303.     rnes(S[j], inc1, &rs1, n, &idx); }
  304. rsve_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  305.   for (j=0; j<32; j++)
  306.     rsve(S[j], inc1, &rs1, D[j], inco, n, 32); }
  307. shphu_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  308.   for (j=0; j<32; j++)
  309.     shphu(S[j], inc1, &rs1, D[j], inco, n); }
  310. shphuf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  311.   for (j=0; j<32; j++)
  312.     shphuf(S[j], inc1, &rs1, D[j], inco, n); }
  313. sn2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  314.   for (j=0; j<32; j++)
  315.     sn2(S[j], inc1, S[(j+4)%8], inc2, &rso, n); }
  316. svdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  317.   for (j=0; j<32; j++)
  318.     svdiv(&rs1, S[j], inc1, D[j], inco, n); }
  319. sve_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  320.   for (j=0; j<32; j++)
  321.     sve(S[j], inc1, &rso, n); }
  322. svemg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  323.   for (j=0; j<32; j++)
  324.     svemg(S[j], inc1, &rso, n); }
  325. svesq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  326.   for (j=0; j<32; j++)
  327.     svesq(S[j], inc1, &rso, n); }
  328. svessq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  329.   for (j=0; j<32; j++)
  330.     svessq(S[j], inc1, &rso, n); }
  331. tconv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  332.   for (j=0; j<32; j++)
  333.     tconv(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n, 32, n); }
  334. trans_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  335.   for (j=0; j<32; j++)
  336.     trans(S[j], S[j], D[j], n); }
  337. vaam_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  338.   for (j=0; j<32; j++)
  339.     vaam(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  340. vabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  341.   for (j=0; j<32; j++)
  342.     vabs(S[j], inc1, D[j], inco, n); }
  343. vacos_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  344.   for (j=0; j<32; j++)
  345.     vacos(S[j], inc1, D[j], inco, n); }
  346. vadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  347.   for (j=0; j<32; j++)
  348.     vadd(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  349. vaint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  350.   for (j=0; j<32; j++)
  351.     vaint(S[j], inc1, D[j], inco, n); }
  352. vam_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  353.   for (j=0; j<32; j++)
  354.     vam(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  355. vanint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  356.   for (j=0; j<32; j++)
  357.     vanint(S[j], inc1, D[j], inco, n); }
  358. vasbm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  359.   for (j=0; j<32; j++)
  360.     vasbm(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  361. vasin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  362.   for (j=0; j<32; j++)
  363.     vasin(S[j], inc1, D[j], inco, n); }
  364. vasm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  365.   for (j=0; j<32; j++)
  366.     vasm(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  367. vatan_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  368.   for (j=0; j<32; j++)
  369.     vatan(S[j], inc1, D[j], inco, n); }
  370. vatan2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  371.   for (j=0; j<32; j++)
  372.     vatan2(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  373. vatn2f_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  374.   for (j=0; j<32; j++)
  375.     vatn2f(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  376. vavexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  377.   for (j=0; j<32; j++)
  378.     vavexp(S[j], inc1, &rs1, D[j], inco, n); }
  379. vavlin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  380.   for (j=0; j<32; j++)
  381.     vavlin(S[j], inc1, &rs1, D[j], inco, n); }
  382. vclip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  383.   for (j=0; j<32; j++)
  384.     vclip(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  385. vclr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  386.   for (j=0; j<32; j++)
  387.     vclr(D[j], inco, n); }
  388. vcmprs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  389.   for (j=0; j<32; j++)
  390.     vcmprs(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  391. vcos_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  392.   for (j=0; j<32; j++)
  393.     vcos(S[j], inc1, D[j], inco, n); }
  394. vcosf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  395.   for (j=0; j<32; j++)
  396.     vcosf(S[j], inc1, D[j], inco, n); }
  397. vdbpwr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  398.   for (j=0; j<32; j++)
  399.     vdbpwr(S[j], inc1, &rs1, D[j], inco, n); }
  400. vdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  401.   for (j=0; j<32; j++)
  402.     vdiv(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  403. vdpsp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  404.   for (j=0; j<32; j++)
  405.     vdpsp((double*)S[j], inc1, D[j], inco, n); }
  406. veucl2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  407.   for (j=0; j<32; j++)
  408.     veucl2(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  409. veucl3_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  410.   for (j=0; j<32; j++)
  411.     veucl3(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  412. vexp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  413.   for (j=0; j<32; j++)
  414.     vexp(S[j], inc1, D[j], inco, n); }
  415. vexp10_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  416.   for (j=0; j<32; j++)
  417.     vexp10(S[j], inc1, D[j], inco, n); }
  418. vexp2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  419.   for (j=0; j<32; j++)
  420.     vexp2(S[j], inc1, D[j], inco, n); }
  421. vfill_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  422.   for (j=0; j<32; j++)
  423.     vfill(&rs1, D[j], inco, n); }
  424. vfrac_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  425.   for (j=0; j<32; j++)
  426.     vfrac(S[j], inc1, D[j], inco, n); }
  427. vfracn_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  428.   for (j=0; j<32; j++)
  429.     vfracn(S[j], inc1, D[j], inco, n); }
  430. vgathr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  431.   for (j=0; j<32; j++)
  432.     vgathr(S[j], ib, inc2, D[j], inco, n); }
  433. vgen_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  434.   for (j=0; j<32; j++)
  435.     vgen(&rs1, &rs2, D[j], inco, n); }
  436. viadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  437.   for (j=0; j<32; j++)
  438.     viadd((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  439. viand_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  440.   for (j=0; j<32; j++)
  441.     viand((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  442. viars_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  443.   for (j=0; j<32; j++)
  444.     viars((long*)S[j], inc1, n1,(long*)D[j], inco, n); }
  445. viclip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  446.   for (j=0; j<32; j++)
  447.     viclip(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  448. vils_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  449.   for (j=0; j<32; j++)
  450.     vils((long*)S[j], inc1, n1, (long*)D[j], inco, n); }
  451. vimag_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  452.   for (j=0; j<32; j++)
  453.     vimag(S[j], 2, D[j], inco, n); }
  454. vimul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  455.   for (j=0; j<32; j++)
  456.     vimul((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  457. vindex_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  458.   for (j=0; j<32; j++)
  459.     vindex(S[j], S[(j+4)%8], inc2, D[j], inco, n); }
  460. vineg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  461.   for (j=0; j<32; j++)
  462.     vineg((long*)S[j], inc1, (long*)D[j], inco, n); }
  463. vintb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  464.   for (j=0; j<32; j++)
  465.     vintb(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  466. vior_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  467.   for (j=0; j<32; j++)
  468.     vior((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  469. virs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  470.   for (j=0; j<32; j++)
  471.     virs((long*)S[j], inc1, n1, (long*)D[j], inco, n); }
  472. visub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  473.   for (j=0; j<32; j++)
  474.     visub((long*)S[j], inc1, (long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  475. vixor_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  476.   for (j=0; j<32; j++)
  477.     vixor((long*)S[j], inc1,(long*)S[(j+4)%8], inc2, (long*)D[j], inco, n); }
  478. vlim_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  479.   for (j=0; j<32; j++)
  480.     vlim(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  481. vlint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  482.   for (j=0; j<32; j++)
  483.     vlint(S[j], n, S[(j+4)%8], inc2, D[j], inco, n ); }
  484. vlmerg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  485.   for (j=0; j<32; j++)
  486.     vlmerg(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  487. vlog_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  488.   for (j=0; j<32; j++)
  489.     vlog(S[j], inc1, D[j], inco, n); }
  490. vlog10_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  491.   for (j=0; j<32; j++)
  492.     vlog10(S[j], inc1, D[j], inco, n); }
  493. vlog2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  494.   for (j=0; j<32; j++)
  495.     vlog2(S[j], inc1, D[j], inco, n); }
  496. vma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  497.   for (j=0; j<32; j++)
  498.     vma(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  499. vmax_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  500.   for (j=0; j<32; j++)
  501.     vmax(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  502. vmaxmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  503.   for (j=0; j<32; j++)
  504.     vmaxmg(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  505. vmin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  506.   for (j=0; j<32; j++)
  507.     vmin(S[j], inc1, S[(j+4)%8], inc1, D[j], inco, n); }
  508. vminmg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  509.   for (j=0; j<32; j++)
  510.     vminmg(S[j], inc1, S[(j+4)%8], inc1, D[j], inco, n); }
  511. vmma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  512.   for (j=0; j<32; j++)
  513.     vmma(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  514. vmmsb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  515.   for (j=0; j<32; j++)
  516.     vmmsb(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  517. vmov_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  518.   for (j=0; j<32; j++)
  519.     vmov(S[j], inc1, D[j], inco, n); }
  520. vmsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  521.   for (j=0; j<32; j++)
  522.     vmsa(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  523. vmsb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  524.   for (j=0; j<32; j++)
  525.     vmsb(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  526. vmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  527.   for (j=0; j<32; j++)
  528.     vmul(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  529. vnabs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  530.   for (j=0; j<32; j++)
  531.     vnabs(S[j], inc1, D[j], inco, n); }
  532. vneg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  533.   for (j=0; j<32; j++)
  534.     vneg(S[j], inc1, D[j], inco, n); }
  535. vnmsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  536.   for (j=0; j<32; j++)
  537.     vnmsa(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  538. vpmerg_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  539.   for (j=0; j<32; j++)
  540.     vpmerg(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  541. vpoly_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  542.   for (j=0; j<32; j++)
  543.     vpoly(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n, 8); }
  544. vqint_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  545.   for (j=0; j<32; j++)
  546.     vqint(S[j], n, S[(j+4)%8], inc2, D[j], inco, n ); }
  547. vramp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  548.   for (j=0; j<32; j++)
  549.     vramp(&rs1, &rs2, D[j], inco, n); }
  550. vrand_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  551.   for (j=0; j<32; j++)
  552.     vrand(&idx, D[j], inco, n); }
  553. vreal_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  554.   for (j=0; j<32; j++)
  555.     vreal(S[j], 2, D[j], inco, n); }
  556. vrecip_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  557.   for (j=0; j<32; j++)
  558.     vrecip(S[j], inc1, D[j], inco, n); }
  559. vrsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  560.   for (j=0; j<32; j++)
  561.     vrsqrt(S[j], inc1, D[j], inco, n); }
  562. vrvrs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  563.   for (j=0; j<32; j++)
  564.     vrvrs(S[j], inc1, n); }
  565. vsadd_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  566.   for (j=0; j<32; j++)
  567.     vsadd(S[j], inc1, &rs1, D[j], inco, n); }
  568. vsbm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  569.   for (j=0; j<32; j++)
  570.     vsbm(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, D[j], inco, n); }
  571. vsbsbm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  572.   for (j=0; j<32; j++)
  573.     vsbsbm(S[j], inc1, S[(j+4)%8], inc2, S[(j+2)%8], inc3, S[(j+6)%8], inc4, D[j], inco, n); }
  574. vsbsm_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  575.   for (j=0; j<32; j++)
  576.     vsbsm(S[j], inc1, S[(j+4)%8], inc2, &rs1, D[j], inco, n); }
  577. vscatr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  578.   for (j=0; j<32; j++)
  579.     vscatr(S[j], inc1, ib, inc2, D[j], n); }
  580. vsdiv_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  581.   for (j=0; j<32; j++)
  582.     vsdiv(S[j], inc1, &rs1, D[j], inco, n); }
  583. vsimps_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  584.   for (j=0; j<32; j++)
  585.     vsimps(S[j], inc1, D[j], inco, n, &rs1); }
  586. vsin_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  587.   for (j=0; j<32; j++)
  588.     vsin(S[j], inc1, D[j], inco, n); }
  589. vsinf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  590.   for (j=0; j<32; j++)
  591.     vsinf(S[j], inc1, D[j], inco, n); }
  592. vsinrf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  593.   for (j=0; j<32; j++)
  594.     vsinrf(S[j], inc1, D[j], inco, n); }
  595. vsm2sa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  596.   for (j=0; j<32; j++)
  597.     vsm2sa(S[j], inc1, &rs1, S[(j+4)%8], inc2, &rs2, &rs3, D[j], inco, n); }
  598. vsma_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  599.   for (j=0; j<32; j++)
  600.     vsma(S[j], inc1, &rs1, S[(j+4)%8], inc2, D[j], inco, n); }
  601. vsma2_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  602.   for (j=0; j<32; j++)
  603.     vsma2(S[j], &rs1, S[(j+4)%8], &rs2, inc, D[j], inco, n); }
  604. vsma3_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  605.   for (j=0; j<32; j++)
  606.     vsma3(S[j], &rs1, S[(j+4)%8], &rs2, S[(j+2)%8], &rs3, inc, D[j], inco, n); }
  607. vsma4_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  608.   for (j=0; j<32; j++)
  609.     vsma4(S[j], &rs1, S[(j+4)%8], &rs2, S[(j+2)%8], &rs3, S[(j+6)%8], &rs4, inc, D[j], inco, n); }
  610. vsmsa_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  611.   for (j=0; j<32; j++)
  612.     vsmsa(S[j], inc1, &rs1, &rs2, D[j], inco, n); }
  613. vsmsb_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  614.   for (j=0; j<32; j++)
  615.     vsmsb(S[j], inc1, &rs1, S[(j+4)%8], inc2, D[j], inco, n); }
  616. vsmul_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  617.   for (j=0; j<32; j++)
  618.     vsmul(S[j], inc1, &rs1, D[j], inco, n); }
  619. vspdp_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  620.   for (j=0; j<32; j++)
  621.     vspdp(S[j], inc1, (double*)D[j], inco, n); }
  622. vsq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  623.   for (j=0; j<32; j++)
  624.     vsq(S[j], inc1, D[j], inco, n); }
  625. vsqrt_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  626.   for (j=0; j<32; j++)
  627.     vsqrt(S[j], inc1, D[j], inco, n); }
  628. vssq_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  629.   for (j=0; j<32; j++)
  630.     vssq(S[j], inc1, D[j], inco, n); }
  631. vsub_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  632.   for (j=0; j<32; j++)
  633.     vsub(S[j], inc1, S[(j+4)%8], inc2, D[j], inco, n); }
  634. vsum_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  635.   for (j=0; j<32; j++)
  636.     vsum(S[j], inc1, D[j], inco, n, &rs1); }
  637. vswap_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  638.   for (j=0; j<32; j++)
  639.     vswap(S[j], inc1, S[(j+4)%8], inc2, n); }
  640. vtabi_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  641.   for (j=0; j<32; j++)
  642.     vtabi(S[j], inc1, &rs1, &rs2, S[(j+4)%8], D[j], inco, n, n); }
  643. vtan_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  644.   for (j=0; j<32; j++)
  645.     vtan(S[j], inc1, D[j], inco, n); }
  646. vtanf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  647.   for (j=0; j<32; j++)
  648.     vtanf(S[j], inc1, D[j], inco, n); }
  649. vthr_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  650.   for (j=0; j<32; j++)
  651.     vthr(S[j], inc1, &rs1, D[j], inco, n); }
  652. vthres_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  653.   for (j=0; j<32; j++)
  654.     vthres(S[j], inc1, &rs1, D[j], inco, n); }
  655. vtrapz_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  656.   for (j=0; j<32; j++)
  657.     vtrapz(S[j], inc1, D[j], inco, n, &rs1); }
  658. vxcs_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  659.   for (j=0; j<32; j++)
  660.     vxcs(S[j], D[j], 2, &rs1, &rs2, n); }
  661. vxcsf_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  662.   for (j=0; j<32; j++)
  663.     vxcsf(S[j], inc1, D[j], 2, &rs1, &rs2, n); }
  664. wiener_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  665.   for (j=0; j<32; j++)
  666.     wiener(n, S[j], S[(j+4)%8], D[j], D[(j+4)%8], ndf, &idx); }
  667.  
  668. #else    /* !BIG */
  669. acorf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  670.     acorf(rv1, rvo, n, n); }
  671. #if 1
  672. acort_time (m,n) long m,n; { long i, j; for(i=0; i<m; i+=32)
  673.   {
  674.   for (j=0; j<32; j++)
  675.     {
  676.     acort(rv1, rvo, n, n);
  677.     }
  678.   }
  679. }
  680. #else
  681. acort_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  682.     acort(rv1, rvo, n, n); }
  683. #endif
  684. aspec_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  685.     aspec(cv1, inc1, rvo, inco, n); }
  686. /*    aspec(cv1, rvio, n); } */
  687. blkman_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  688.     blkman(rv1, inc1, rvo, inco, n); }
  689. ccdotp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  690.     ccdotp(cv1, 2, cv2, 2, cso, n); }
  691. ccorf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  692.     ccorf(rv1, rv2, rvo, n, n); }
  693. ccort_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  694.     ccort(rv1, rv2, rvo, n, n); }
  695. cdotpr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  696.     cdotpr(cv1, 2, cv2, 2, cso, n); }
  697. cfft_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  698.     cfft(cvio, n, flg); }
  699. cfftf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  700.     cfftf(cv1, 2, cvo, 2, n); }
  701. /**
  702. cfftf_64c_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  703.     cfftf_64c(cv1, 2, cvo, 2, n); }
  704.  **/
  705. cffti_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  706.     cffti(cv1,2, cvo, 2, n); }
  707. cfftsc_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  708.     cfftsc(cvo, n); }
  709. convd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  710.     convd(rv1, inc1, rv2, inc2, rvo, inco, n, 32, ndf); }
  711. cpow_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  712.     cpow(cv1, 2, &rs1, rv2, inc2, &rs2, rvo, inco, n); }
  713. crvdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  714.     crvdiv(cv1, 2, rv2, inc2, cvo, 2, n); }
  715. crvmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  716.     crvmul(cv1, 2, rv2, inc2, cvo, 2, n); }
  717. cspec_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  718.     cspec(cv1, cv2, cvo, n); }
  719. cvabs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  720.     cvabs(cv1, 2, rvo, inco, n); }
  721. cvadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  722.     cvadd(cv1, 2, cv2, 2, cvo, 2, n); }
  723. cvcml_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  724.     cvcml(cv1, 2, cv2, 2, cvo, 2, n); }
  725. cvcmla_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  726.     cvcmla(cv1, 2, cv2, 2, cv3, 2, cvo, 2, n); }
  727. cvcomb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  728.     cvcomb(rv1, inc1, rv2, inc2, cvo, 2, n); }
  729. cvconj_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  730.     cvconj(cv1, 2, cvo, 2, n); }
  731. cvcsml_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  732.     cvcsml(cv1, 2, cs1, cvo, 2, n); }
  733. cvdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  734.     cvdiv(cv1, 2, cv2, 2, cvo, 2, n); }
  735. cvexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  736.     cvexp(rv1, inc1, cvo, 2, n); }
  737. cvfill_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  738.     cvfill(cs1, cvo, 2, n); }
  739. cvma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  740.     cvma(cv1, 2, cv2, 2, cv3, 2, cvo, 2, n, 1); }
  741. cvmags_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  742.     cvmags(cv1, 2, rvo, inco, n); }
  743. cvmexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  744.     cvmexp(rv1, inc1, cv2, 2, cvo, 2, n); }
  745. cvmgsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  746.     cvmgsa(cv1, 2, rv2, inc2, rvo, inco, n); }
  747. cvml_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  748.     cvml(cv1, 2, cv2, 2, cvo, 2, n); }
  749. cvmla_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  750.     cvmla(cv1, 2, cv2, 2, cv3, 2, cvo, 2, n); }
  751. cvmov_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  752.     cvmov(cv1, 2, cvo, 2, n); }
  753. cvmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  754.     cvmul(cv1, 2, cv2, 2, cvo, 2, n, flg); }
  755. cvneg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  756.     cvneg(cv1, 2, cvo, 2, n); }
  757. cvphas_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  758.     cvphas(cv1, 2, rvo, inco, n); }
  759. cvrcip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  760.     cvrcip(cv1, 2, cvo, 2, n); }
  761. cvreal_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  762.     cvreal(rv1, inc1, cvo, 2, n); }
  763. cvsma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  764.     cvsma(cv1, 2, cs1, cv2, 2, cvo, 2, n); }
  765. cvsmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  766.     cvsmul(cv1, 2, &rs1, cvo, 2, n); }
  767. cvsqrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  768.     cvsqrt(cv1, 2, cvo, 2, n); }
  769. cvsub_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  770.     cvsub(cv1, 2, cv2, 2, cvo, 2, n); }
  771. deq22_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  772.     deq22(rv1, inc1, rv2, rvo, inco, n); }
  773. dotpr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  774.     dotpr(rv1, inc1, rv2, inc2, &rso, n); }
  775. envel_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  776.     envel(rv1, rvo, n); }
  777. fftwts_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  778.     fftwts(cvo, m, n); }
  779. fix4_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  780.     fix4(rv1, inc1, ivo, inco, n); }
  781. fix2n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  782.     fix2n(rv1, inc1, svo, inco, n); }
  783. fix4n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  784.     fix4n(rv1, inc1, ivo, inco, n); }
  785. fixbn_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  786.     fixbn(rv1, inc1, bvo, inco, n); }
  787. flt2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  788.     flt2(sv1, inc1, rvo, inco, n); }
  789. flt2iq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  790.     flt2iq(sv1, inc1, rvo, rvo, n); }
  791. flt4_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  792.     flt4(iv1, inc1, rvo, inco, n); }
  793. fltb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  794.     fltb(bv1, inc1, rvo, inco, n); }
  795. fltbu_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  796.     fltbu(bv1, inc1, rvo, inco, n); }
  797. fxsl2n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  798.     fxsl2n(rv1, inc1, &rs1, &rs2, svo, inco, n); }
  799. fxsl4n_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  800.     fxsl4n(rv1, inc1, &rs1, &rs2, ivo, inco, n); }
  801. fxslbn_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  802.     fxslbn(rv1, inc1, &rs1, &rs2, bvo, inco, n); }
  803. gcosf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  804.     gcosf(rvo, inco, &rs1, &rs2, n); }
  805. gcexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  806.     gcexp(cs1, cs2, cvo, 2, n); }
  807. hamm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  808.     hamm(rv1, inc1, rvo, inco, n); }
  809. hann_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  810.     hann(rv1, inc1, rvo, inco, n, flg); }
  811. hlbrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  812.     hlbrt(rv1, rvo, n); }
  813. lveq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  814.     lveq(rv1, inc1, rv2, inc2, rvo, inco, n); }
  815. lvge_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  816.     lvge(rv1, inc1, rv2, inc2, rvo, inco, n); }
  817. lvgt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  818.     lvgt(rv1, inc1, rv2, inc2, rvo, inco, n); }
  819. lvle_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  820.     lvle(rv1, inc1, rv2, inc2, rvo, inco, n); }
  821. lvlt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  822.     lvlt(rv1, inc1, rv2, inc2, rvo, inco, n); }
  823. lvne_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  824.     lvne(rv1, inc1, rv2, inc2, rvo, inco, n); }
  825. lvnot_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  826.     lvnot(rv1, inc1, rvo, inco, n); }
  827. maxmgv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  828.     maxmgv(rv1, inc1, &rso, &idx, n); }
  829. maxv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  830.     maxv(rv1, inc1, &rso, &idx, n); }
  831. meamgv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  832.     meamgv(rv1, inc1, &rso, n); }
  833. meanv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  834.     meanv(rv1, inc1, &rso, n); }
  835. measqv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  836.     measqv(rv1, inc1, &rso, n); }
  837. minmgv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  838.     minmgv(rv1, inc1, &rso, &idx, n); }
  839. minv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  840.     minv(rv1, inc1, &rso, &idx, n); }
  841. mvessq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  842.     mvessq(rv1, inc1, &rso, n); }
  843. mxmov_time (m,n) long m,n; { long i; n=(n>512)?512:n; for(i=0; i<m; i++)
  844.     mxmov(rv1, 1, n, rv1, 1, n, n, n); }
  845. mxmul_time (m,n) long m,n; { long i; n=(n>128)?128:n; for(i=0; i<m; i++)
  846.     mxmul(rv1, 1, n, rv1, 1, n, rvo, 1, n, n, n, n); }
  847. mxmla_time (m,n) long m,n; { long i; n=(n>128)?128:n; for(i=0; i<m; i++)
  848.     mxmla(rv1, 1, n, rv1, 1, n, rv1, 1, n, n, n, n); }
  849. mxmls_time (m,n) long m,n; { long i; n=(n>128)?128:n; for(i=0; i<m; i++)
  850.     mxmls(rv1, 1, n, rv1, 1, n, rv1, 1, n, n, n, n); }
  851. polar_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  852.     polar(rv1, 2, rvo, 2, n); }
  853. rect_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  854.     rect(rv1, 2, rvo, 2, n); }
  855. reqs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  856.     reqs(rv1, inc1, &rs1, n, &idx); }
  857. rfft_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  858.     rfft(rvio, n, flg); }
  859. rfftf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  860.     rfftf(rv1, inc1, cvo, 2, &rs1, n); }
  861. rffti_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  862.     rffti(rv1, 2, &rs1, rvo, inco, n); }
  863. rfftsc_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  864.     rfftsc(rvio, n, flg1, flg2); }
  865. rges_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  866.     rges(rv1, inc1, &rs1, n, &idx); }
  867. rgts_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  868.     rgts(rv1, inc1, &rs1, n, &idx); }
  869. rlts_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  870.     rlts(rv1, inc1, &rs1, n, &idx); }
  871. rmax_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  872.     rmax(rv1, inc1, &rso, &idx, n); }
  873. rmaxmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  874.     rmaxmg(rv1, inc1, &rso, &idx, n); }
  875. rmin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  876.     rmin(rv1, inc1, &rso, &idx, n); }
  877. rminmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  878.     rminmg(rv1, inc1, &rso, &idx, n); }
  879. rmsqv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  880.     rmsqv(rv1, inc1, &rso, n); }
  881. rnes_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  882.     rnes(rv1, inc1, &rs1, n, &idx); }
  883. rsve_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  884.     rsve(rv1, inc1, &rs1, rvo, inco, n, 32); }
  885. shphu_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  886.     shphu(rv1, inc1, &rs1, rvo, inco, n); }
  887. shphuf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  888.     shphuf(rv1, inc1, &rs1, rvo, inco, n); }
  889. sn2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  890.     sn2(rv1, inc1, rv2, inc2, &rso, n); }
  891. svdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  892.     svdiv(&rs1, rv1, inc1, rvo, inco, n); }
  893. sve_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  894.     sve(rv1, inc1, &rso, n); }
  895. svemg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  896.     svemg(rv1, inc1, &rso, n); }
  897. svesq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  898.     svesq(rv1, inc1, &rso, n); }
  899. svessq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  900.     svessq(rv1, inc1, &rso, n); }
  901. tconv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  902.     tconv(rv1, inc1, rv2, inc2, rvo, inco, n, 32, n); }
  903. trans_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  904.     trans(rv1, cv1, cvo, n); }
  905. vaam_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  906.     vaam(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  907. vabs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  908.     vabs(rv1, inc1, rvo, inco, n); }
  909. vacos_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  910.     vacos(rv1, inc1, rvo, inco, n); }
  911. vadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  912.     vadd(rv1, inc1, rv2, inc2, rvo, inco, n); }
  913. vaint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  914.     vaint(rv1, inc1, rvo, inco, n); }
  915. vam_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  916.     vam(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  917. vanint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  918.     vanint(rv1, inc1, rvo, inco, n); }
  919. vasbm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  920.     vasbm(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  921. vasin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  922.     vasin(rv1, inc1, rvo, inco, n); }
  923. vasm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  924.     vasm(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  925. vatan_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  926.     vatan(rv1, inc1, rvo, inco, n); }
  927. vatan2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  928.     vatan2(rv1, inc1, rv2, inc2, rvo, inco, n); }
  929. vatn2f_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  930.     vatn2f(rv1, inc1, rv2, inc2, rvo, inco, n); }
  931. vavexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  932.     vavexp(rv1, inc1, &rs1, rvo, inco, n); }
  933. vavlin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  934.     vavlin(rv1, inc1, &rs1, rvo, inco, n); }
  935. vclip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  936.     vclip(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  937. vclr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  938.     vclr(rvo, inco, n); }
  939. vcmprs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  940.     vcmprs(rv1, inc1, rv2, inc2, rvo, inco, n); }
  941. vcos_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  942.     vcos(rv1, inc1, rvo, inco, n); }
  943. vcosf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  944.     vcosf(rv1, inc1, rvo, inco, n); }
  945. vdbpwr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  946.     vdbpwr(rv1, inc1, &rs1, rvo, inco, n); }
  947. vdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  948.     vdiv(rv1, inc1, rv2, inc2, rvo, inco, n); }
  949. vdpsp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  950.     vdpsp(dv1, inc1, rvo, inco, n); }
  951. veucl2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  952.     veucl2(rv1, inc1, rv2, inc2, rvo, inco, n); }
  953. veucl3_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  954.     veucl3(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  955. vexp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  956.     vexp(rv1, inc1, rvo, inco, n); }
  957. vexp10_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  958.     vexp10(rv1, inc1, rvo, inco, n); }
  959. vexp2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  960.     vexp2(rv1, inc1, rvo, inco, n); }
  961. vfill_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  962.     vfill(&rs1, rvo, inco, n); }
  963. vfrac_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  964.     vfrac(rv1, inc1, rvo, inco, n); }
  965. vfracn_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  966.     vfracn(rv1, inc1, rvo, inco, n); }
  967. vgathr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  968.     vgathr(rv1, ib, inc2, rvo, inco, n); }
  969. vgen_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  970.     vgen(&rs1, &rs2, rvo, inco, n); }
  971. viadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  972.     viadd(iv1, inc1, iv2, inc2, ivo, inco, n); }
  973. viand_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  974.     viand(iv1, inc1, iv2, inc2, ivo, inco, n); }
  975. viars_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  976.     viars(iv1, inc1, n1, ivo, inco, n); }
  977. viclip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  978.     viclip(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  979. vils_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  980.     vils(iv1, inc1, n1, ivo, inco, n); }
  981. vimag_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  982.     vimag(cv1, 2, rvo, inco, n); }
  983. vimul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  984.     vimul(iv1, inc1, iv2, inc2, ivo, inco, n); }
  985. vindex_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  986.     vindex(rv1, rv2, inc2, rvo, inco, n); }
  987. vineg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  988.     vineg(iv1, inc1, ivo, inco, n); }
  989. vintb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  990.     vintb(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  991. vior_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  992.     vior(iv1, inc1, iv2, inc2, ivo, inco, n); }
  993. virs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  994.     virs(iv1, inc1, n1, ivo, inco, n); }
  995. visub_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  996.     visub(iv1, inc1, iv2, inc2, ivo, inco, n); }
  997. vixor_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  998.     vixor(iv1, inc1, iv2, inc2, ivo, inco, n); }
  999. vlim_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1000.     vlim(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  1001. vlint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1002.     vlint(rv1, n, rv2, inc2, rvo, inco, n); }
  1003. vlmerg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1004.     vlmerg(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1005. vlog_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1006.     vlog(rv1, inc1, rvo, inco, n); }
  1007. vlog10_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1008.     vlog10(rv1, inc1, rvo, inco, n); }
  1009. vlog2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1010.     vlog2(rv1, inc1, rvo, inco, n); }
  1011. vma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1012.     vma(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1013. vmax_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1014.     vmax(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1015. vmaxmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1016.     vmaxmg(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1017. vmin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1018.     vmin(rv1, inc1, rv1, inc1, rvo, inco, n); }
  1019. vminmg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1020.     vminmg(rv1, inc1, rv1, inc1, rvo, inco, n); }
  1021. vmma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1022.     vmma(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  1023. vmmsb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1024.     vmmsb(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  1025. vmov_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1026.     vmov(rv1, inc1, rvo, inco, n); }
  1027. vmsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1028.     vmsa(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  1029. vmsb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1030.     vmsb(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1031. vmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1032.     vmul(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1033. vnabs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1034.     vnabs(rv1, inc1, rvo, inco, n); }
  1035. vneg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1036.     vneg(rv1, inc1, rvo, inco, n); }
  1037. vnmsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1038.     vnmsa(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  1039. vpmerg_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1040.     vpmerg(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1041. vpoly_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1042.     vpoly(rv1, inc1, rv2, inc2, rvo, inco, n, 8); }
  1043. vqint_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1044.     vqint(rv1, n, rv2, inc2, rvo, inco, n); }
  1045. vramp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1046.     vramp(&rs1, &rs2, rvo, inco, n); }
  1047. vrand_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1048.     vrand(&idx, rvo, inco, n); }
  1049. vreal_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1050.     vreal(cv1, 2, rvo, inco, n); }
  1051. vrecip_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1052.     vrecip(rv1, inc1, rvo, inco, n); }
  1053. vrsqrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1054.     vrsqrt(rv1, inc1, rvo, inco, n); }
  1055. vrvrs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1056.     vrvrs(rv1, inc1, n); }
  1057. vsadd_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1058.     vsadd(rv1, inc1, &rs1, rvo, inco, n); }
  1059. vsbm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1060.     vsbm(rv1, inc1, rv2, inc2, rv3, inc3, rvo, inco, n); }
  1061. vsbsbm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1062.     vsbsbm(rv1, inc1, rv2, inc2, rv3, inc3, rv4, inc4, rvo, inco, n); }
  1063. vsbsm_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1064.     vsbsm(rv1, inc1, rv2, inc2, &rs1, rvo, inco, n); }
  1065. vscatr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1066.     vscatr(rv1, inc1, ib, inc2, rvo, n); }
  1067. vsdiv_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1068.     vsdiv(rv1, inc1, &rs1, rvo, inco, n); }
  1069. vsimps_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1070.     vsimps(rv1, inc1,rvo, inco, n, &rs1 ); }
  1071. vsin_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1072.     vsin(rv1, inc1, rvo, inco, n); }
  1073. vsinf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1074.     vsinf(rv1, inc1, rvo, inco, n); }
  1075. vsinrf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1076.     vsinrf(rv1, inc1, rvo, inco, n); }
  1077. vsm2sa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1078.     vsm2sa(rv1, inc1, &rs1, rv2, inc2, &rs2, &rs3, rvo, inco, n); }
  1079. vsma_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1080.     vsma(rv1, inc1, &rs1, rv2, inc2, rvo, inco, n); }
  1081. vsma2_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1082.     vsma2(rv1, &rs1, rv2, &rs2, inc, rvo, inco, n); }
  1083. vsma3_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1084.     vsma3(rv1, &rs1, rv2, &rs2, rv3, &rs3, inc, rvo, inco, n); }
  1085. vsma4_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1086.     vsma4(rv1, &rs1, rv2, &rs2, rv3, &rs3, rv4, &rs4, inc, rvo, inco, n); }
  1087. vsmsa_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1088.     vsmsa(rv1, inc1, &rs1, &rs2, rvo, inco, n); }
  1089. vsmsb_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1090.     vsmsb(rv1, inc1, &rs1, rv2, inc2, rvo, inco, n); }
  1091. vsmul_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1092.     vsmul(rv1, inc1, &rs1, rvo, inco, n); }
  1093. vspdp_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1094.     vspdp(rv1, inc1, dvo, inco, n); }
  1095. vsq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1096.     vsq(rv1, inc1, rvo, inco, n); }
  1097. vsqrt_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1098.     vsqrt(rv1, inc1, rvo, inco, n); }
  1099. vssq_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1100.     vssq(rv1, inc1, rvo, inco, n); }
  1101. vsub_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1102.     vsub(rv1, inc1, rv2, inc2, rvo, inco, n); }
  1103. vsum_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1104.     vsum(rv1, inc1, rvo, inco, n, &rs1); }
  1105. vswap_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1106.     vswap(rv1, inc1, rv2, inc2, n); }
  1107. vtabi_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1108.     vtabi(rv1, inc1, &rs1, &rs2, rv2, rvo, inco, n, n); }
  1109. vtan_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1110.     vtan(rv1, inc1, rvo, inco, n); }
  1111. vtanf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1112.     vtanf(rv1, inc1, rvo, inco, n); }
  1113. vthr_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1114.     vthr(rv1, inc1, &rs1, rvo, inco, n); }
  1115. vthres_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1116.     vthres(rv1, inc1, &rs1, rvo, inco, n); }
  1117. vtrapz_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1118.     vtrapz(rv1, inc1, rvo, inco, n, &rs1); }
  1119. vxcs_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1120.     vxcs(rv1, cvo, inco, &rs1, &rs2, n); }
  1121. vxcsf_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1122.     vxcsf(rv1, inc1, cvo, 2, &rs1, &rs2, n); }
  1123. wiener_time (m,n) long m,n; { long i; for(i=0; i<m; i++)
  1124.     wiener(n, rv1, rv2, rvo, rvo, ndf, &idx); }
  1125. #endif
  1126.